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vou-000 Program Gescription ee MeviC® TA =SEb=13Be S8:a8:8¢ LEMUR seeasOurices.mars1 8% 4p 
-sbttl Program description 
Facility 
Utility to List open files on a disk 
Abstract 


This program Lists all open files on a disk device 
in order to find out who is accessing the device. 


Environment 

Native mode, User mode 
Author 

Tim Halvorsen, Jan 1980 
Modified by: 


v03-012 AEWO002 Anne E. Warner 26-Apr-1984 
Made fix to clear the variable containing the PID of 
a system file at output. This variable was not being 
reset after a file with a non-zero PID was processed. 


v03-011 AEWO001 Anne E. Warner 18-Apr-1984 
changed the output rogees tng from LIBSPUT_OUTPUT to 
SHOWSWRITE_LINE in CCLIUTL.SRCJSHOWIO.832. This change 
was made for continuity in the SHOW Utility and because 
Go toseul oy reut does not work when SYSSOUTPUT is a user 
efine e. 


v03-010 CWH3010 CW Hobbs 28-Feb-1984 
Shorten the heading so that long device names do not cause 
screen wraps. 


v03-009 TCMO001 Trudy C. Matthews 10-Jun-1983 
Change sense of input flag to IOCSCVT_DEVNAM to match 
change in that routine. 


v03-008 GASO0136 Gerry smith 19-May-1983 
Fix the flags longword so that it gets prepegstes 
correctly. Also make sure that IOCSCVT_DEVNAM returns 
the full device name. 


v03-007 CwWwH1002 CW Hobbs 
Use extended pid for getjpi and display. 


V03-006 GAS0104 Gerry Smith 31-Jan-1983 
Remove the pre-parsing of the device before assigning 
a channel to it, since SASSIGN does that anyway. 


v03-005 GAS0099 Gerry Smith 7-Jan-1983 
Minor modification to run with new SHOW. 


v03-004 KDM0002 Kathleen D. Morse 28-Jun-1982 
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-sbttl declarations 


¢ 5 symbol defintions 
4 Sdscdef ; Descriptor definitions 
32 Sjipidef 3; GETJPI definitions 
$ Sddbdef 3 Coy ice data block 
7 ucbdef : unit control block 
3 vcbdef : yorune control block 
S$rvtdef ; Relative volume table 
0 100 $fcbdef : File control block 
101 webdef 3 Window control block 
0 1 $ dyndef 3; Type codes for VMS blocks 
3 1 ssdef 3 sretes error messages 
0 104 $ccbdef ; CCB definitions 
$4 19? Sipldef : IPL definitions 
0 1 $ Sprdef ; Processor register definitions 
000 10 Sorvdef ; Privilege bit definitions 
0000 108 $Sdcdef ; Device class definitions 
44 109 
000 110 ; 
944 1) ; Define the position of the options bits in DEVISL_BITLIS 
0000 118 Svield devi,3,<- : 
900 114 <file,,m>, - ; /FILES bit 
0000 115 <syst,,m>, - 3; /SYSTEM bit 
0000 116 <user,,m>, = ; /NOSYSTEM bit 
0000 «(117 <wind,,m>,- 3; /WINDOWS bit 
0000 118 > 
0000 119 


00: 


00000004 


00000008 
0000000C 
00000010 
00000014 


00000018 


0000001C 


49 44 24 53 59 53 sepatenl yy ; it 


0000003C 


00000000 
0000002D° 
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0000 


storage definit 


deviS$l_bitlis: 
obLkL 


web_length: 


procnambuf: 
-bLk 


a ss se st st BD md — Hb ss — 2 sw ss — =n > a ss a — 2s — 2 os — ss as 
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-sbttl storage definitions 
storage definitions 


-psect showSrwdata,noexe,wrt 


;**e* the following block of code must be 

cb_length: 
-bl 3 

fcb_buffer: 

eblki 1 3 


fcb_count: 
eblkl = 1 3 


blklt 1 ; 
web_buffer: 

eblkl = 1 : 
web_count: 

eblkl 1 3 
def_disk: ; 

-ascid /SYSSDISK:/ 


15 : 


process_name: 
lo 


-long 0 
-address procnambuf 


i_pid: 
ipt_p -long 0 ; 
newbuf lim: 
long 0,0 ; 
null_weblock: 
ng 0 3 
long : 
long 0 ; 
long : 


-psect show$Srodata,noexe,nowrt 


AX/VMS Macro 


ro V 
CLIUTL.SRCJSHOWF ILES.MAR; 1 


; Options longword 


together: 
Length of buffer in use 


Address of the buffer 
Number of FCB's to display 
Length of the buffer in use 


Address of the buffer 

The 16 byte entry consists of the PID, 
the number of window Sognente. the 
total size of all the windows, and the 
access status byte. 


Number of WCB's to display 
Descriptor for default disk 


Process name buffer 


Epid for the getjpi and fao 


descriptor for locking dynamic buffers 


; PID 

; window count 
; window size 
; access flags 


04- Page (2) 


Bo00001C* 001 


4 16D° 
O003F 5° 


MO" WP MOOCCCOTBO@OFSOOoCOone® 


2am Wn & Wwrororononn 


0 

20 $8 41 21 at $5 BRCEO eae eT 
20 53 41 i HI 8 5 f§ § 
TTT ied: 
75 65 03 FF Hh Bodhote Sothogds BBR 
3 26 20 20 2 20 6D 61 3 5 3 OAR 
a ab SSD OF 28 68 38 3B 32 2) i 
65 6D 61 6€ 26 $3 6C 6 a6 20 20 6s. occ 
73 3 85 GF 73 $6 Sp0d00E6+G10E G00" op 
£2 6C 69 46 $ $ $3 20 20 re i9 3 oF? 
0008 


= List open fil 
Storage defi 


nitions 
1 


5 
; 
5 
? codelim: 
; 
5 
; 
8 


199 faofil: 


; 0 cath: 
1 nocath: 
02 disk: 


203 hedwin: 


204 hedfil: 


306 
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15 
79 jpi_procnam: 
word 


15 
«word jpiS_prcnam 
address procnambuf 
address process_name 
.long 


TSEp=198e 83:98:82 LOCIUTL. Se 


address feb_ length 3 
address def_dis 3 
address count_fcbweb : 
-address display_file 3 


S$ Macro 


ro V04-00 Pa 
JSHOWF ILES.MAR; 1 ” (%) 


Length of output buffer 
yoy eee. type 
Address of output buffer 


; Address to receive length 


Pett depends on having fcb_length, fcb_buffer, and def_disk all together 
u : 


descriptor showing address range 
for data that can't page 


descriptor showing address range 


; for code that can’t page 


FAO control strings and the header for output 


: ,ascid ‘!15AS !xL !8 
-ascid "!15AS 'xL ! 
-ascid ‘C’ 

-ascid ‘* ° 

-ascid 

-ascid ‘Process name 
-ascid ‘Process name 


-psect show$code,exe 


UL'AS !8UL 


AS‘ 


PID 


PID 


nowrt 


!AS' 


"'/Files accessed on device !AS on !%D!/' 


Win Cnt Win Size File name’ 


File name’ 
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% ; -sbttl showSfiles -- entry point for this module 
1 : This is the main routine of the program. Based on the 
1 3 cet vens n the command Line, subroutines are called to 
! ; display open files on a particular device. 
13 : Inputs: 
9 : 4(AP) = address of translated device descriptor 
18 $ B(AP) = flags longword 
; ; Outputs: 
3 § : The open files are printed on SYSSOUTPUT | 
00 } 
003¢ 09 5 sentry showSfiles,*m<r2,r3,74,r5> 
00000000"EF 08 BC 00 003 ‘ mov l a8(ap) ,devi$l_bitlis i get the flags 
Q0000000"EF 30 D3 O00A 5 bitl #devi$m_user- i check to see if either option | 
011 0 'devi$m syst. - 3 was set. If not, then set both 
011 1 devi$l_Bitlis 
9? ig 11 ¢ bneq 10$ 
00000000‘ EF » g¢ 13 bisl #devi$m_user- 3; set both bits, saying we want 
O1A 4 'devi$m_syst, - ; both system and user files 
a4 36 devi$l_Bitlis 
00000153°EF 16 OOTA 5 10$: jsb get_device 3 assign a channel and put it in r3 
Bp $ 3 note that r2-r5 are changed 
28 50 =—«éE9 o blbc r0,15$ 3 branch on error 
0 40 Slkwset_s inadr=buf lim 3; lock data buffer in working set 
1450 €9 3 4 41 blbc e 3; branch on error | 
7 $s $ikwset_s inadr=codelim ; lock code pages in working set 
0150 €8 0048 4 blbs ro, 3 xfer if all ok 
04 0048 44 15$: ret 3 return with status 
33 ce bee a2 20$: pusht c 3 channel number on the stack 
us 
" OD 3p i$ bushi sp 
O16D°CF OF 5 48 pushab w*count_fcbwcb 
00000000 ' GF ; F 56 49 call #2,9*sysS$cmkrnl 3; count the number of FCB's and WCB's 
5E C 50 50 addl sp 3; clean up the stack 
50 C*EF A ey $8 1 add\ #10, fcb_count,r0 3 st minimum 
0 A ¢ § divl r0,f : 10% overdraft 
eossecec "ts 50 7BC BF CGS : mull #11*fcb$c_lLength.r0, fcb_count 3 amount needed 
1 ff a° 6 54 addl #19 -wed. ount,r0 3 set minimum 
0 0 ga (7 38 2? divl #10,r 76 ; 10% overdraft 
00000018'°EF 50 0 8F C5 4 § mull #11#16,r0,wceb_count ; amount needed 
7E 00000018'EF OOOOC*EF C1 90 addl fcb count.wcb-count,-(sp) scalculate total needed 
ff ge 0° H' } mov (sp) ,newbuf lim+4 > save size foe 
0 E 4 A mov l sp,r ; save address for later 
=e. oF ab 60 pushab t b_buf fer > get some memory 
u 
00000000 ' GF F A 6 calls #2,g*libSget_vm 
01 ; eB § $3 blbs 07408 ~ : xfer if all ok 
4 8 64 ret 3; else return with status posted 


VOUVUVTVTVOVTVTVUVTVVUVOVUVTVMOoo@wmaer wv 


a i i i i Bs Bs Bes es es ee) | 


zawmvvvz2z22rr° our 


Suowey jLes 
poooonss: er goonnnoe 


01 50 


00000008 ' EF C*EF 
14°EF 
3 
1 


0227°CF 
eemmeeedl 
E 
45 
31 50 
1D 50 
09 50 
52 
QOO00S8F*EF 01 


open files on a disk dev 


3 
les -- entry point for this modul 4-SEP- 


buffer,newbuflim 

r,newbuflime4 

nadr=newbuflim ; lock new ers into memory 
° 


5 
w'seve_d v_info 
#2,q*sys$cmkrnl 


inadr=codelim 
inadr=newbuf lim 


r 
#\,display_info 


VS 
WMS SSW 


MmWOOunrv—MOo \P 


19be 93:38:80 EETUTE. SRESSuburices.man;1 ° 


3; clean the stack 
3; set starting address to lock 
3 set endin dress to lock 


3; xfer if a 
exit sta 


; else 95 right 
fcb_count, fcb_buffer,web_buffer ; set address of WCB buffer area 


3 channel number on stack 


Save device information 

Pop cmrknl arguments off stack 
branch if error 

unlock data pages 

branch if error 

unlock code pages 

branch if error 

unlock dynamic buffer area 

; xfer if in error 

Address of device descriptor 
Display the saved info 


Sete Se Se Se Se Se Se 


Pp 
1 
C 
P 
Ss 
P 
Ss 
P 
C 
A 
T 
1 
T 
? 
3 
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-Sbttl get device, get device spec and assign a channel 


This routine fetes the device specification, if any, and assigns 
a channel to it. 


Inputs: 
4 4(ap) = address of device string descriptor 
9 Outputs: 


r3 = channel number from assign 
r4,c5 are destroyed 


- get_device: 


ooo 
2 


52 04 aC 00 5 movl 4(ap),r2 ; get device string descriptor 
7E D4 5 {4 80$: clrl -(sp) 3 make space on , ned for channel 
ss» = 59 11 mov L sp.r3 3 and save its addres 
45 \¢ $assign_s Govnane tre) = 3 assign a channel to. the device 
chan=(r 
53 8EDO FA 14 popt r3 i; put channel number in r3 
05 016C 15 90$: 


a 
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count _fcbwcb == count the number of FCB’ 4-SEP-1984 CLIUTL.SRCJSHOWF ILES.MAR; 1 ) 


} 4 V? -sbttl count_fcbwceb <= count the number of FCB's and WCB's 
: 4 seee 
16D : This kernel mode routine counts the number of FCB's and WCB's 
16D $ associated with a particular device or volume set. This is necessary 
4 Z 3 to allow a variable number of files to be displayed. 
Hb 5: Inputs: 
He § : 4(ap) = Channel number of the assigned device 
160 : > Outputs: 
16D 1; feb_count = the number of FCB's actually active 
198 § 3 web_count = the number of primary windows associated with the FCB's 
Bye 
16D § count_fcbweb: 
OFFC 190 5 eword 3 “m<r2,r3.74,75,76,r7,r8,r9,r10,r11> 
QOOOOOOC'EF 04 i 9 clr fcb_count i nothing so far 
00000018'EF 4 0175 40 clrl web_count 
50 AC ¢ 0178 4) movzwl 4(ap),r0 ; get the channel number 
9" in 17F 4g sb g*io $verifychan 3 verity the channel number 
4 183 4 Loc ro, 3; xfer if in error 
51 61 00 0188 44 mov | ccb$l_ucb(r1),r1 i get the UCB address 
01 40 Al 91 0186 45 cmpb ucb$b_devclass(r1) ,@dc$_disk ; is this a disk? 
47 12 18F 46 bneg 80$ : exit if not 
4 rt setipl #ipl$_synch ; lock the FCB's into place 
P+ 43 : Search all the UCB's in the relative volume List 
56 34 A1 00 0194 351° movi ucb$l_vcb(r1),r6 ; get the address of the first vCB | 
3 1 198 26 beql 80$ : error if none there 
50 aes | 19A 5 movl ri,r0 3; put UCB address if useful place 
OE A6 «6B 19D 54 tstw b$Sw_rvn(r6) ; is this part of a volume set? 
fa 1A0 55 beql 3; xfer if not 
59 20 A6 9 1A2 2$ movl cb$l_rvt(r6),r9 ; else get address of RVT 
. ee i 5 beaql 3; error if none 
OE OA AY 91 OIA 28 cmpb rvtSb_type(r9) ,Adyn$c_rvt ; right type of block? 
2A 12 «O1AC 5 bneq 808 ; error if not 
5A AQ 9A OIA $9 movzbl rvt$b_nvols(r9),ri : get the number of volumes in the set 
59 4409 «GE 018 6 movab rvt$l-ucblst(r95 ,r ; get address of the UCB List 
56 89 09 18 6¢ 108: mov (r9)+,r6 3; get the next UC 
fe 18 6 beaql 2 ; skip if not mounted 
10 OAA 91 188 64 capb ucbSb_ type(r6) ,Adyn$c_ucb sreally a UCB? 
1 1 1BF 65 bneq 0$ : xfer if not 
0 56 OD 1€1 6 mov | r6,r0 : else move UCB address into useful place 
56 34 06 «20 01C6) = mov b$l_vcb(r6) .r6 > get VCB address 
of 1 1¢8 $8 beaql 80S ; xfer if none 
1 12 1CA | bsbb 19gs ; go do the actual counting 
E7 SAF 1¢C 0 208: sobgtr r10,10$ : continue till all UCB’s processed 
02. «121 act 4 brb 70$ ; go finish up 
0O— 10 0101 4 50$: bsbb 100$ 3: go count for a single volume 
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1D 
9 99 1D re 70$: movl #1,°0 ; set success 
1 16 brb 90$ : go return 
50 O1ccC BF 3C O10 8 $08: movzwl ggs8_nottiledev.r0 3 set error status 
10 7 $: setipl # ; lower IPL 
04 3 ? ret i and return to caler 
i § 3; count the FCB's and WCB's 
58 66 DO O1E1 4 1008: movt yeb$l_febfl (r6) .r8 : get address of he first FCB 
1 4 15? 5 bneq $ 3; xfer if initial 
168 § rsb ; else assume not nitialized 
56 3 i) 1€7 3 1108: cmpl rg r6 ; all FCB's processed? 
A 1 1EA beql $ : xfer if al processed 
AASB 8B 1EC 9 tstw ifaae sent tre? 3 active? 
| ore 1EF 9 beaql : xfer if inective 
2A a8 8B 1F1 8 tstw fcb$w_segn(r8) 3 extension FCB? 
/ 2S 1F4 9 bneq 1408 : ignore if so 
ce 4 1F6 94 incl fcb_count ; else count one more 
50. 61 ae 1FC 5 movab  fcbSl_wifl(r8),r0 ; get WCB Listhead 
51 6 D 0 movl (r0),F1 3; get address of the first wCB 
a 0 9 beql 140$ 3; xfer if none 
50 Hy D1 0 98 115$: cmpl ri,r0 ; more + do? 
6 13 0208 399 beqt 1468 xfer f not 
06 0B Al 06 €1 OA 400 bbc #ucb$v_cathedral ,web$b_ aicess(ri).1 $ ; xfer if not Cathedral 
01 2C Al O01 OF 401 cmpl web$l_Stvbn(r1) ,41 else check for primary window 
06 12 13 ; bneq 1308 : xfer if not primary 
OOO00018"EF D6 1 403 120$: incl z else count window 
51 61 00 18 404 1508: movil vepSt oulfltrt), ri 3; get address i the next window 
ce 1 brb 115$ ~ 3; go check for t 
58 68 00 406 140$: movil fcb$l_fcbfl(r8),r8 3; get address oe the. next FCB 
FFCI 1 4 brw 110$ ; go check for the end 
05 6 408 150$: rsb : return with updated counts 
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ro V04-00 
CLIUTL.SRCJSHOWF ILES.MAR;1 
-sbttl save dev_info -- save device information 


This kernel mode routine saves the FIB's corresponding to a 
specified device in a dynamic buffer for Later display. 


Inputs: 
4(ap) = Channel number of assigned device 
; Outputs: 


fcb_buffer is filled with FCB's for device 
fcb_length = Length of fcb_buffer filled 


save_dev_info: 
sword) 3 “m<r2,r3,74,r5,76,77,78,79,r10,r11> 
movzwl 4(ap),r0 3 get channel number 
jsb g*io $verifychan 3; verify the channel number 
lbc ; branch on error 


ru, 
mov l ccb$l_ucb(r1),r1 3 get UCB address 
cmpb cb$b_devclass(r1) ,#dc$_disk 3: is this a disk? 
ones 0$ ; branch if not 
setipl #ipl$_synch 3; and lock FCB’s in place 


Search all UCB's in the relative volume List 
Address of first vCB 


movl gaat nebtrt) ne 


beql 3: error if none 

movl r1,r0 ; Put UCB address in place 

tstw bSw_rvn(ré) 3; Is this a multiple disk volume? 

beql 3; branch if not 

movl cb$l_rvt(r6),r9 ; Get address of RVT 

beql : error if none 

cmpb rvtSb_type(r9) ,Adyn$c_rvt ; Is it really an RVT? 

bneq 80$ 3; Error if not 

movzbl rvt$b_nvols(r9) ,r10 ; Get number of volumes 

movab rvt$l-ucblst(r9) ,r9 ; Address of List of UCB addresses 
10$: mov (r9)+,r6 ; Get next UCB in List 

beql 2 ; Skip if this RVN is dismounted 

cmpb =—s-s uc bSb_type(r6) .#dyn$c_ucb ; Is it really a UCB? 

bneq 80$ ; Error if not 

mov r6,r0 save the UCB address 

mov ycb$l_veb(r6) .r6 Get address of VCB 

beql $ Error if 


none 
Save all FCB's for this volume 
Loop until we reach last volume 


bsbb save gi \.fche 
ri0,T0$ 
Exit with success 


508: bsbb save_all_fcbs 


70$: mov #1,r0 
brb 90$ 


80$: movzwl #ss$_notfiledev,r0 ; Not a disk device 


Save all FCB’s on single volume 


success 


ne i 
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isk device 15-SEP-1984 23:46: AX/VMS Macro v04-00 14 
CB's for a volum 4-SEP-1984 33:38:68 LOE TUTL. SREISHOWF IL $.MAR;1 (8) 
-sbttl save_all_fcbs Save all FCB’s for a volume 


3 


= 
o 
cs 


Ss LES - list 
you-000 save_al 


Save all the FCB’s for this device whose access count NE 0 
Inputs: 


Re = Address of VCB 
RO = Address of UCB 


Outputs: 
fcb_length = Updated length of stuff stored in fcb_buffer 
r0-r5, r7-r8 destroyed. 


ww 
Ww 
w 
NN 
; 
oe 
s 3 
3 Sass 
MSSRS 
POPOIPOPIPIPIPIDIPINININININIPIPINIPINININININIPINININ 


PPrryryY PY \ \ © © 000000009 00 09 00 CD CO CD CO CD CD CD CD CD CD 


OD PIE OOD. AO. Oi ET OF 208 08 8 8 rn 9 8 


save_all_fcbs: 
8 mov fcb Longgh¢7 ; Pickup Length already stored 
4 movab afcBb_buffer(r7).r3 ; Address to store FCB's 
90 mov | yeDsC. febtl(r6) .r8 ; Address of first FCB 
491 bneq 10$ : if non-zero, VCB is initialized 
0 136 brw 120$ : else return now, not initialized 
494 ; The first fcb entry for each disk is a mm feb, containing data 
0 $32 F which will Later be used to construct a device string. 
55 § 0 499 {0s mov l r0.r5 ; put UCB address in place 
50 OOAC 8F c¢ 0 498 movzwl Sicesc tength=6.r0 : give Length 
mova r3).¢ ; and address of output buffer 
51 08 AS OD 499 8(r3),F1 d add f tput buff 
04 a3 2) 0 B 500 movl r1,4(r3) ; also put this into the descriptor 
4 OD B 01 pushl fF4 : Save 
54 01 cf B 8 mnegl #1,r4 3; R4&<0 ==> give node if not local 
00000000" EF BB jsb ioc$cvt_devnam 3; then call routine to return dev name 
4 8ED ¢1 ee popl r4 ; Restore R4 
63 << = C4 05 mov r1,(r3) 3; put actual length in place 
57 00000084 8F 9 C7 208 addl2 _ #fcb$c_length,r7 ; skip to next fcb cell 
53 00000008 'FF47 f movab afcb_buffertr7),r3 3: and recompute address to store FCB 
56 38 D1 4 09 20S: capl r8,r6 : end of List? 
0 iF D 10 bneq 308 : xfer if more to come 
00A9 =3 DB 11 brw 120$ : else i'm dome with this volume 
1A 85 DE \¢ 30$ tstw [5geu_ecatir6) : Anybody accessing this file? 
iF e} 1 bneq 4 5 : xfer if not active 
00 3 E 14 brw 110$ ; else get the next one 
2A 3 43 15 408: tstw {gbSu_segnir6) :; Is this an extension header FCB? 
FH E 16 beql 45$ ; skip if not 
00 1 EB 1 brw 110$ 3; else ignore it 
63 4 of | ef 18 45$ move #fcb$c_length,(r8),(r3) ; Add to accum. FCB List 
57 F ¢ F 1 addl #fcb$c_length,r Increment length in buffer 
FFSC C C O2FB 9 clrq  fcebSl_ulfl=fcb$c_Length(r3) ; Preset WCB List to zero 
50 =—10 FF movab  fcb$l“wifl(r8),r0 ; Get address of WCB Listhead 
51 § ? 3 § movl (r0),F1 ; Get address of first WCB 
0 8 beql 110$ ; branch if zero 
50 = (51 ° 4 50$: capl r1,r0 ; Empty WCB list? 
68 3 5 beql 116$ 3; skip if so 
52 Q0000010°EF 00 0D 6 mov l web_length,r2 : else get current length of List 


Ss LES - list files on a disk devic . 15-SEP-1 AX/VMS Macro v04-00 P 1 
iva save cli tcbs Seve oll Penis fers volum -teraions SE:s5.8e Fe iUTe eke Sembee ites nan:1 Om? | 
16°FF 14 7 movab Sued. buffer€r2],r4 3; calculat tual butt / address 
See at yi 2 3 60$: bbc sucks v scathedral webSb_ sécessiri) i 08 ; xfer if not cathedral 
p cmpl L_Stvbn(r1) 41 3 else check for a primary window 
0 bneq : : xfer if not primary 
gs oc A i) 70$: mov + be ¢) apiece). ,(r4) : else save internal PID 
AG ai 8 movl ; save the window count 
08 AG 08 Al 3¢ F movzwl AP ug size(r1),8(r4)_ ¢ save the window size 
C AG Al 9A 4 4 movzbl ¥ bs “access(ri),12(r4) ; Save access status 
—. war oO 9 5 movl : copy address for later 
52 20 A2 0 $ 80S: mov webSl_Link(r2) .r2 ; get the oddress of the next segment 
0D 1 4 beql 90$ : xfer if the last 
Ss AG ge 4 3 incl 4(r6) ; else S aune "ene more window segment 
55 8 a 4 movzwl “ Biv _pizetre) £5 3; get the size of the window 
OB AG OS C 49 40 addi2 8(r4) i otal it up 
E 1 4D 41 brb 8 9 et the next segment (if any) 
55 FF60 C 4 4F 4g 90$: movab fepst. wlbl-fcb$c atength(?3 r> ; set spares of count 
6 1] 54 4 incl ; one more 
01 D1 § 44 cmpl (r5),#1 ; is it the first? 
1 45 bneq % 3; xfer if not 
+ 5 5 4 OD 8 rt] mov l r4 ere 3; else save address of first block 
QOOOOO10'EF 10 C 5F 47 95$: addi2 #16, web_Llength 3 advance to the next block 
00000018 *EF 10°EF 01 6 48 cmpl web_Length,wceb_count 3; too much? 
14 «618 1 49 bgeq 1 ; xfer if so...finish 
= 6SlUC«CD 73 50 100$: movil y) gt owlhfl(r1) 1 ; else get the next in Line 
11 oe 23) orb $ go check for more 
58 b0 7 26 110$: movil ite fcbfl(r8),r8 ; Skip to next FCB 
0000000C ‘EF D1 78 «655 cmpl : _count 3 reached the upper Limit? 
03 «#18 82 554 bgeq 3 stop if s 
FFGF 86331 84 55 brw obs 
O00000004"EF 57 0 ti 2$ 1208: ty r?7,fcb_length ; Store Length actually in buffer 
rs 
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display tnto. Display act fives from FCB SasePayone S8:s5 694 Peetu TS eeeSe ator ices.mans1 2% 18): 


: é : «sbttl display_info, Display all files from FCB List 
F ; 
F 62 ; This routine ei spi ays a list of file specifications 
: 27 3 given a List of FCB’s 
: Hi ; Inputs: 
F 89 : fcb_buffer = Buffer holding FCB's for device 
: 63 3 fcb_length = Number of bytes actually filled in fcb_buffer 
F : Outputs: 
F 9 3 : 
F 72 ; None 
F 7 5 ooce 
‘ 74 
F 75 display_info: 
-wor m<r2,r6,r7> 
00C4 of gd “m<r2,r6,r7 
57 Q0000008'EF 00 91 78 movl fcb_buffer,r7 ; Address of first FCB 
56 sentenced | ) 98 79 mov l fcb_length,ré6 ; Length of buffer left to process 
Scy 8 2) 59 beql 80$ ; Branch if none found 
3A 286 3 Check here to see if this ‘‘fcb’’ is actually a dummy, containing 
Al 583; the device descriptor and device string for the next unit. 
Ail 584; In that case, the FCB forward pointer, instead of being a system 
Al $3 address (and therefore negative) will contain a small positive 
aA $ 3 number, which is the length of the device string. 
r @& b3al 588 5s: tstl (r7) 3; check to see if system address 
19 bane 89 blss 10$ ; if negative, it’s an FCB 
52 7 #00 A 90 6$ mov l r7,r2 3; use this descriptor for device name 
57 00000084 8F C9 3A8 91 addl at cbse Length. r7 3 point to next F 
67 OD anf 38 tstl (r7) : check to see if system address 
ima 1 59 bgeq $ :; if GEQ, then this is another 
383 594 3; dummy fcb, so skip the present one 
38 95 3 otherwise build disk header message 
| OD B 38 pusht #0 ; current date and time 
OD 9 pushl r2 ; disk name descriptor 
—E 0D 7 98 pushl sp : address of arglist for call 
QOOOO06B"EF DF 0389 99 pushal disk 3; format for ovules 
00000000 ' GF : F 3BF 600 calls #2,g*SHOWSWRITE_LINE ; print Line from Ccliutl.srcJshowio.b32 
00000000 ° EF C 8 oR) bisl2 A#deviSm_file,devi$l_bitlis ; force a new header Line 
56 00000084 8F C CD 6 : subl #fcb$c_length,ré6 ; adjust Length of FCB buffer 
1B (Oo + ? : beaql 80$ ; if zero, finished 
57 oD 6 6 : 10$: pusht 7 : Address of local FCB 
§ DD D 60 pushl rs ; Address of device descriptor 
99000 5F 3 of F DA one calls #2,display_file ; Display file information 
4 0B4 8F C E1 609 addl #fcb$c_length,r7 ; Skip to next FC 
56 000B4 8F C¢ E8 610 subl #fcb$c_length,ré6 ; Decrement length left to do 
BO 1 SEF 611 bneq 5$ 
50 1 4 i! o1¢ gos: mov l #1,r0 
4 F461 $: ret 
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files 
display_ . Dis spley information on as 4-SEP- CLIUTL.SRCIJSHOWF ILES.MAR;1 (10) 
/ ig «sbtt. display_file, Display information on a single file : 
F 17; ; 
: 18 3 This routine is called to display a single FCB : 
: y : Inputs: ; 
F 6 ¢ ; 4(ap) = Address of device name descriptor : 
: ? z 3 8(ap) = Address of FCB in local memory : 
F 625 : Outputs: ; 
: : None 3 
F . | : 
F 6 ? display_file: 3 
048C ‘ ° sword “m<r2,r3,74,r5,r7,r10> : 
OOODO4ED' EF 16 3) 6 : sb get filename i get the filename : 
0 3FD 40 634 Lbs r0, 108 3 Tf succgss. continue 3 
OOE 1 rh 635 brw 110$ 3; else exi F 
546 0A D 040 6 $ 10$: mova febSl_wlfl(r7),r4 3 r4e Sarees of WCB info blocks 3 
407 63 : rs = number of WCB info blocks 3 
OA 12 0407 638 bneq 208 3; xfer if one there 3 
54 wo s 9 409 639 movab null_weblock,r4 3; else set as a null block 3 
5 £9 | 41 640 mov | 3 onky one bloc 3 
BS 0413 641 208: tstw (rd) > any PID obtained? ; 
041 ot¢ : Cinstalled files may set upper word 3 
0415 64 3; to shared WCB reference count) 3 
= Bet9 ete bneq 408 ; if so, then process normally : 
OOOOO0000"EF 04 # €0 eed 646 bbs #devi$v_syst, - 3 check if system files wanted ; 
03 pel 647 devi$l_Bitlis,30$ 3 
ooBc =s«é51 235 o78 brw 100$ 3; branch if not wanted : 
OOOOOOSC"EF D4 0493 650 30$: clrl process_name ; proses 5 precese name to null ; 
64 D4 04 651 clrl (r4) 3 3 
nienpeectaal D4 042A $36 clrl jpi-pid 3 initialize for output 3 
eat r 0 o27 brb $ ; and print it : 
bc3 655 z handle normal files her F 
O0000000"EF 05 £0 04 $28 40$ bbs #devi$v_user, - 3 check to see if user files wanted 3 
03 4 65 devi$l_Bitlis,50$ ; 
00A1 31 r 5 $28 brw 100$ : branch if not : 
430 660: Now to attempt a SGETJPI on the process which has the file open. : 
43D 661; If the request te fails, then the assumption is that the current : 
43D $66 ; process did not have the right privilege (GROUP or WORLD) to 3 
430 6635 ; get information about the file's process -- ong sheretore should F 
? 4 66e 3 not be allowed to see what files that process is accessing. : 
DO 0430 296 50s: mov l (r4).¢ ; Put the internal pid in r0 : 
00000900" GF 8 440 66 jsb o riteia o_epid : Convert to extended pid 3 
00000044 ‘EF 0 OD 446 908 mov r0 pi : Store the extended pid. we need it again 
rt 98? Sgetipi_ ; P sisal 1 _pid.s ; Get process name 
03 50 €8 0468 «671 blbs § 6 ; xfer if allowed 
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00000000’ EF HY 
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00000008" EF 
00000000’ EF 

6E  O000009A'EF 

00000000 * GF F 


3 
00000000 ' GF 19 
54 


fi 


- list o 
display. 
31 «06 
4 
4 4 
; 4 
E 47 
47E 
9E 047F 
D 04 $ 
F 04 
1 Q48F 
E 0494 
DD 04 
D 04 3 
F Q4A 
DO O4AA 
4AD 
E5 Q4AD 
4B4 
DD 0485 
DF 0487 
E1 0480 
404 
DE 04C5 
FB O04C 
DD 04D 
DD 04D 
FB 0407 
£0 4DE 
F 4E1 
11 Bees 
31 04E6 
434 
DO 04E9 
04 OQ4EC 


oa 
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brw 


pushl 
movab 
bbc 


1008 


poceey _cathedral,12(r4), 08 


cath, (Sp) 
Straus 


inf pid 

process_name 

sp.rl 

#devi$v_file, - 

devi$l_Bitlis,85$ 
p ved 

#devi wind, 


seeyet “Bitlis, 808 
hedwin, ( - 
a g*show write_line 


r 
A293 show$write_line 
£3,105 
20$ 
#1,r0 


ice as "28 Pa} 984 $3: 38: sf tltune 3 CISHOWF ILES. MAR; 1 c 
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; else skip this one 

make output Line tor normal files 
set addr of file name descriptor 
4 control ace ng address 

xfer if no window taternetten 


else sey new control Fate, 
total size of windows 

assume no cathedral windows 

3; xfer if i got it right 

else set cathedral indicator 

total number of windows 

extended PID of accesscor 

address of the owner process name 

save the address of this arglist 

output the Line 

branch if header already written 

(notice re-use of devi$v_file) 

indicate there is no arglist for heading 
else output the header 

get correct header string 


Output the expanded name string 
point to the next WCB block 
skip if more 

else go finish up 

go analyze this info block 
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-sbttl get_filename, Get file name from FID 


th 


4(ap 
8(ap 
Outputs: 


get_filename: 
po 


w 
ww 
o 
3 
a=] 
az 


10$: 
20$: s 
psb 


end 


mov 
$getmsg_s_msgid=r0,msglen= 
hl r5 


Address of d 
Address of F 


r5 
8(ap),r7 
4,5 
sp.r 
#nam$c_maxrss,sp 
sp 
#nam$c_maxrss,-(sp) 
ogre 
r 
#0 
r 
r 
fcb$w_fid(r7) 
4(ap 
r+ Saath ecm 
r0,5$ 
(r$) 0 
rd, 
#*m<r0.ri> 
r2).¢r 
#*a/:/,70,(r1) 
r0 
ri 
r0,(r2) 
#*m<r0,r1> 
f #ss$_nosuchfile 
108 


#0 
206 


#nam$c_maxrss,(r2) 


Sete Se Se te Se Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Se Oe & 


Teco pet wae is called for each FCB, to extract the name of 


evice name descriptor 
CB in local memory 


RO = success/failure in finding file 


save return address 
get address of local FCB 
q erate space for error return 
r3 = Address of error 
Allocate filespec buffer 
and descriptor of buffer 


; r2 = Address of filespec descriptor 
; address for secondary error return 
; don't know oireetery 1 

; return length of filespec 

; filespec descriptor 

; Address of FID 


Address of device name descriptor 
Convert DID/FID to filespec 
branch if in error 
Check for secondary error 
branch if secondary error 
save LOCC regs 
get file name descriptor 
get the end of the device name 
one less byte 
skip over colon 
save new descriptor 
restore LOCC regs 
go finish up sf 
check for ‘no such file 
if not, process normally 
if no such file, leave name blank 
show success 
and exit 
length of buffer 


: aaeers 

(r2) ,bufadr=(r2),flags=#1 ; and get message 
3; restore return address 
3; and return 


<n 
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Psect synopsis , ; 4-S$ oat} 33:58:40 CUTE eRe TSHOUF ICES MAR 1 = di) 


boos see one es ees eo} 


! Psect synopsis ! 


tee rw ecw mes sce monn} 


PSECT name Allocation PSECT No. Attributes 
8 « 0 ° ( 8.3 0 ¢ 9. NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
$aBS 0 ( .) 01 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SHOWSRWDATA 8 ( 28°} § ( 4° NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
SHOWSRODATA 0 1 ( ¢ ) ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD NOWRT NOVEC BYTE 
SHOWSCODE 566 ( 1382.) 4 ( 6.) NOPIC USR CON REL LCL NOSHR’ EXE RD NOWRT NOVEC BYTE 
tamonmenr ances ee eceaseaerocne =} 
H Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 11 0:00:00.07 0:00: 1-38 
Command processing 77 3: 379 38 0:00:05.1 
Pass 1 48 :00:1 6 0:01:06.10 
Symbol table sort 0:00:03. 0:00:08.31 
Sd. table output 9 0; ; 0:9 0: 0:00.96 
Psect synopsis output 0:00:00.03 8:80 00-68 
Cross-reference output ? B28 a9 309: 00 -a9 
Assembler run totals 74 00:00:26.1 00:01:34.21 


The ygrking ses —— was 1500 pages. 

107457 bytes (210 pages) of virtual memory were used to buffer the intermediate code. 

here were 110 pages of symbol table space allocated to hold 1944 non-local and 62 local symbols. 
761 source Lines were read in Pass 1, producing 23 object records in Pass 2 

2 pages of virtual memory were used to define 31 macros. 
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! Macro Library statistics : 


ewer rr meee enc eocne =serroe eseeee 


Macro Library name Macros defined 
-5255SDUA28: SL IUTE 98 12CL 1UT ALB: 9 0 
~$255$0UA28: (SYS .OBJJLIB.MLB; 1 
$255$DUA28: (SYSLIBISTARLET .MLB;2 1 
TOTALS <all Libraries) 2 


2096 GETS were required to define 28 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$: SHOWF ILES/OBJ=OBJ$:SHOWFILES MSRC$:SHOWF ILES/UPDATE=(ENHS: SHOWF ILES) +EXECMLS/LIB+LIBS$:CLIUTL/LIB 
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